clst=4
if clst==1 then
  ampl=5;clust={};clust[0+1]={0,1,2,3};clust[1+1]={2,3,0,1};clust[2+1]={0,1,2,3};clust[3+1]={2,3,0,1}
  end
if clst==2 then
  ampl=5;clust={};clust[0+1]={0,2,0,2};clust[1+1]={1,3,1,3};clust[2+1]={2,0,2,0};clust[3+1]={3,1,3,1}
  end
if clst==3 then
  ampl=3;clust={};clust[0+1]={0,1,0,1};clust[1+1]={1,0,1,0};clust[2+1]={0,1,0,1};clust[3+1]={1,0,1,0}
  end
if clst==4 then
  ampl=9;clust={};clust[0+1]={0,1,4,2};clust[1+1]={3,6,7,5};clust[2+1]={4,2,0,1};clust[3+1]={7,5,3,6}
  end
if clst==5 then
  ampl=17;clust={};clust[0+1]={00,12,03,15};clust[1+1]={08,04,11,07};clust[2+1]={02,14,01,13};clust[3+1]={10,06,09,05}
  end
for y=0,height-1,1 do
  for x=0,width-1,1 do
    r,g,b=get_rgb(x,y)
    patgf=(((1+clust[x%4+1][y%4+1])*255)/ampl)
    r0=0;g0=0;b0=0
    if (b*255)>patgf then b0=255;end
    if (r*255)>patgf then r0=255;end
    if (g*255)>patgf then g0=255;end
    set_rgb(x,y,r0/255,g0/255,b0/255)
    end
  progress (y/height)
  end

